home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / comm / tcp / Amster-main.lha / Amster_Install / Rexx / GetServerStats_example.rexx < prev    next >
OS/2 REXX Batch file  |  2000-09-14  |  747b  |  25 lines
  1. /*
  2. ** Amster Server Stats Demo
  3. */
  4.  
  5. Options Results
  6.  
  7. If Show('P','AMSTER.1') Then Do
  8.   Address 'AMSTER.1' 'GETSERVERSTATS INFO'
  9.   If RC = 0 Then Do
  10.     Day = Date('N',INFO.CONNECTTIME % (60*60*24), 'I')
  11.     ElapSec = ((INFO.CONNECTTIME / (60*60*24)) - (INFO.CONNECTTIME % (60*60*24))) * 60 * 60 * 24 % 1
  12.     Hours = ElapSec % 3600
  13.     Minutes = (ElapSec % 60) - (Hours * 60)
  14.     Seconds = ElapSec - (Hours * 3600) - (Minutes * 60)
  15.     OnlineTime = Hours":"Right("00"||Minutes,2)":"Right("00"||Seconds,2)
  16.  
  17.     Say 'Server: 'INFO.SERVER':'INFO.PORT' (connected since 'OnlineTime')'
  18.     Say INFO.SONGS' songs in 'INFO.USERS' libraries ('INFO.GIGABYTES' GB)'
  19.   End
  20.   Else If RC = 5 Then Do
  21.     Say 'Not currently connected to a server.'
  22.   End
  23. End
  24. Exit
  25.